(compilation-start): In the no-async-subprocesses branch, call

sit-for to give redisplay a chance to show the updated process
status in the mode line.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d31a93311b515f4638d13bb576d46ed27429f14f..376136e33ae1e0fd88c615f78d92c9334e4f6b5b 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -944,6 +944,7 @@ Returns the compilation buffer created."
        ;; Fake modeline display as if `start-process' were run.
        (setq mode-line-process ":run")
        (force-mode-line-update)
+       (sit-for 0)                     ; Force redisplay
        (let ((status (call-process shell-file-name nil outbuf nil "-c"
                                    command)))
          (cond ((numberp status)